home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Education / PC-SiG's World of Education.iso / run / 2602 / exercise.alg < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.7 KB  |  58 lines
  1. { EXERCISE.ALG - algorithm to process stationary bicycle exercise data }
  2.  
  3. step = 1;
  4. xformat = dates;
  5. interp = off;
  6.  
  7. file = "exercise.dat";
  8. duration = read/3600 & {nbr minutes exercising}
  9. speed = read &         {average speed in mph (read from exercycle)}
  10. miles = read & total_miles = sum(miles) &
  11. avgRPM = read &        {average revs per minute (read from exercycle)}
  12. calories = read & total_cals = sum(calories) &
  13. session_count = count(speed);
  14. constant(session_count);
  15. tmpstart = startval;  tmpdur = durval;
  16.  
  17. ymin = 0;   ymax = 7.5;
  18. label = "J.J. Kochy Exercise Data   1. Miles   2. Calories/10   3. Duration/10";
  19. ylabel = "Miles   Calories/10   Mins/10";
  20. xlabel = "Date";
  21. trace = line & plot(miles) &
  22. plot(calories/10) &
  23. trace = vline & plot(duration/10);
  24. constant(total_miles);
  25. text = " Avg. Miles: ";
  26. note(total_miles/session_count,xposn(.1),yposn(.85));
  27. text = "Total miles: ";
  28. note(total_miles,xposn(.1),yposn(.90));
  29. text = "   Sessions: ";
  30. note(session_count,xposn(.1),yposn(.95));
  31. pause;
  32.  
  33. erase;
  34. label="Running Total of Calories Expended";
  35. ylabel = "Calories";
  36. scaley(total_cals);
  37. trace = line & plot(total_cals) &
  38. trace = vline & plot(total_cals);
  39. constant(total_cals);
  40. text = "Total calories: ";
  41. note(total_cals,xposn(.1),yposn(.90));
  42. text = "Equivalent Lbs: ";
  43. note(total_cals/3500,xposn(.1),yposn(.85));
  44. pause;
  45.  
  46. erase;
  47. label="Calories Distribution - Calories per Exercise Session";
  48. ylabel = "Number of Sessions";
  49. xlabel = "Calories per Session";
  50. xformat=nominal;
  51. mxcal = 75;   mncal = 25;   binsize = .5;
  52. binset((mxcal-mncal)/binsize,mncal,mxcal);
  53. bincnt(calories);
  54. trace = vline;
  55. plot(bin(t));
  56. text = "Avg Cals per Session: ";
  57. note(total_cals/session_count,xposn(.042),yposn(.95));
  58.